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INTEGER m(1000),n(2000),p(3000) 




3 


!$OMP PARALLEL 




4 


!$OMP DO 




5 


DO i=1,1000 




6 


m(i)=i 
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END DO 
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!$OMP END DO NOWAIT 
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!$OMP DO 




10 


DO i=1,2000 




11 


n(i)=i*2 




12 


END DO 




13 


!$OMP END DO NOWAIT 




14 


!$OMP DO 




15 


DO i=1,3000 




16 


p(i)=i*3 




17 


END DO 




18 


!$OMP END DO NOWAIT 




19 


!$OMP END PARALLEL 




20 


END 
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